400
How to specifiy the symbol that indicates the decimal values while editing a floating point number

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Float" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to OLEexFloatInteger
				Set ComOption of hoEditor OLEexEditDecimalSymbol to 44
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0.12 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2.45 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
399
How can I edit a float number
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComNumeric to OLEexFloat
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
398
How can I edit a number
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComNumeric to OLEexInteger
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
397
How do I limit the length of the text that the user may enter into an edit control
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditLimitText to 1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
396
How can I change the password character
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditPassword to True
		Set ComOption OLEexEditPasswordChar to 45
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
395
How can I add a password field
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditPassword to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
394
How can I align the text to the right, in my edit control
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexEditRight to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
393
How can I add a simple edit or text box to my column
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
End_Procedure
392
How can I change the type of the editor
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 "Edit" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLESpinType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
End_Procedure
391
How can I add a border arround the editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComAppearance of hoEditor to OLEFlatApp
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Edit" to Nothing
		Get ComAddItem of hoItems "Edit" to Nothing
		Get ComAddItem of hoItems "Edit" to Nothing
	Send Destroy to hoItems
End_Procedure
390
How do I assign an editor for the entire column
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Edit" to Nothing
		Get ComAddItem of hoItems "Edit" to Nothing
		Get ComAddItem of hoItems "Edit" to Nothing
	Send Destroy to hoItems
End_Procedure
389
How do I check if a cell has an editor assigned
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voEditor
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"Edit -> ReadOnly ")) 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
		Send Destroy to hoEditor
		Get ComAddItem of hoItems "ReadOnly" to Nothing
		Get ComAddItem of hoItems "ReadOnly" to Nothing
		Get ComAddItem of hoItems (ComHasCellEditor(hoItems,(ComFocusItem(hoItems)),0)) to Nothing
	Send Destroy to hoItems
End_Procedure
388
How do I delete or remove the editor for a sppecified cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voEditor
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"Edit -> ReadOnly ")) 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
		Send Destroy to hoEditor
		Get ComAddItem of hoItems "ReadOnly" to Nothing
		Get ComAddItem of hoItems "ReadOnly" to Nothing
		Send ComDeleteCellEditor of hoItems (ComFocusItem(hoItems)) 0
	Send Destroy to hoItems
End_Procedure
387
How do I hide or disable the editor assigned to a single cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Edit" to Nothing
		Set ComCellEditorVisible of hoItems (ComAddItem(hoItems,"ReadOnly")) 0 to False
		Get ComAddItem of hoItems "Edit" to Nothing
	Send Destroy to hoItems
End_Procedure
386
How do I assign or change the editor for a particular cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "ReadOnly" to Nothing
		Variant voEditor
		Get ComCellEditor of hoItems (ComAddItem(hoItems,"Edit")) 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
		Send Destroy to hoEditor
		Get ComAddItem of hoItems "ReadOnly" to Nothing
	Send Destroy to hoItems
End_Procedure
385
How do I get the caption of the cell as it is displayed on the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 3 to h
		Variant voEditor
		Get ComCellEditor of hoItems h 0 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLECheckListType
			Send ComAddItem of hoEditor 1 "One" Nothing
			Send ComAddItem of hoEditor 2 "Two" Nothing
		Send Destroy to hoEditor
		Get ComAddItem of hoItems (ComCellCaption(hoItems,h,0)) to Nothing
		Get ComAddItem of hoItems (ComCellValue(hoItems,h,0)) to Nothing
	Send Destroy to hoItems
End_Procedure
384
How do I prevent scrolling the control's data after user does the sort
Procedure OnCreate
	Forward Send OnCreate
	Set ComEnsureOnSort to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 3" to Nothing
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
	Send Destroy to hoItems
	Send ComPutItems (ComGetItems(Self,0)) Nothing
	Send ComPutItems (ComGetItems(Self,0)) Nothing
	Send ComPutItems (ComGetItems(Self,0)) Nothing
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
End_Procedure
383
How do I ensure that the focused item is visible, after the user does the sort
Procedure OnCreate
	Forward Send OnCreate
	Set ComEnsureOnSort to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 3" to Nothing
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
End_Procedure
382
How can I disable selecting multiple items by dragging
Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectByDrag to False
	Set ComSingleSel to True
End_Procedure
381
Is there any function to change the default value for options of the editors
Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultEditorOption OLEexEditPassword to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Pass1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Pass2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,1)) 1 to 2
	Send Destroy to hoItems1
End_Procedure
380
How do I close the editor, or stop editing a cell
Procedure OnCreate
	Forward Send OnCreate
	Send ComEditClose
End_Procedure
379
Is there any function to highlight or mark the cells that have a tooltip using my picture or icon

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComMarkTooltipCells to True
	Set ComMarkTooltipCellsImage to 1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellToolTip of hoItems (ComAddItem(hoItems,"This is a cell with a tooltip")) 0 to "This is a bit of text that is shown when the cursor hovers the cell."
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellToolTip of hoItems1 (ComAddItem(hoItems1,"This is a cell without a tooltip")) 0 to ""
	Send Destroy to hoItems1
End_Procedure
378
Is there any function to highlight or mark the cells that have a tooltip
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkTooltipCells to True
	Set ComTooltipCellsColor to (RGB(255,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellToolTip of hoItems (ComAddItem(hoItems,"This is a cell with a tooltip")) 0 to "This is a bit of text that is shown when the cursor hovers the cell."
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellToolTip of hoItems1 (ComAddItem(hoItems1,"This is a cell without a tooltip")) 0 to ""
	Send Destroy to hoItems1
End_Procedure
377
Is there any function to highlight or mark the cells that have a tooltip
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkTooltipCells to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellToolTip of hoItems (ComAddItem(hoItems,"This is a cell with a tooltip")) 0 to "This is a bit of text that is shown when the cursor hovers the cell."
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellToolTip of hoItems1 (ComAddItem(hoItems1,"This is a cell without a tooltip")) 0 to ""
	Send Destroy to hoItems1
End_Procedure
376
How do I find the window's handled when an editor is running
Procedure OnCreate
	Forward Send OnCreate
	Variant var_Editing
	Get ComEditing to var_Editing
End_Procedure
375
How can I start editing the cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComAutoEdit to False
	Send ComEdit Nothing
End_Procedure
374
Is there any option to edit the control's data manually, so the editor doesn't show up as soon as the cell is focused
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Edit2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to 4
	Send Destroy to hoItems1
	Set ComAutoEdit to False
End_Procedure
373
How can change the background color for selected editor
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexSelectInPlace to (RGB(255,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDropDownListType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 20 to Nothing
	Send Destroy to hoItems
End_Procedure
372
How can change the visual appearance for the spin control, using your EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexSpinUpButtonUp to |CI$1000000
	Set ComBackground OLEexSpinUpButtonDown to |CI$2000000
	Set ComBackground OLEexSpinDownButtonUp to |CI$1000000
	Set ComBackground OLEexSpinDownButtonDown to |CI$2000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 20 to Nothing
	Send Destroy to hoItems
End_Procedure
371
How can change the visual appearance for the slider or track bar, using your EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexSliderThumb to |CI$1000000
	Set ComBackground OLEexSliderRange to (RGB(210,210,210))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESliderType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 20 to Nothing
	Send Destroy to hoItems
End_Procedure
370
How can change the visual appearance for the button that are visible inside the editors, using your EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexButtonDown to |CI$1000000
	Set ComBackground OLEexButtonUp to |CI$2000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
				Send ComAddButton of hoEditor 1 Nothing Nothing Nothing Nothing Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2002" to Nothing
	Send Destroy to hoItems
End_Procedure
369
How can change the visual appearance for the button that shows the drop down editors, using your EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackground OLEexDropDownButtonUp to |CI$1000000
	Set ComBackground OLEexDropDownButtonDown to |CI$2000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2002" to Nothing
	Send Destroy to hoItems
End_Procedure
368
How can I find the column that gets the focus
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Edit2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to 4
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant vCaption
			Get ComFocusColumnIndex to vCaption
		Set ComItemDivider of hoItems2 (ComAddItem(hoItems2,vCaption)) to 0
	Send Destroy to hoItems2
End_Procedure
367
How do I make the control read-only, but still can see the values in a drop down list
Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexAllLines
	Set ComReadOnly to OLEexLocked
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/2003" to Nothing
	Send Destroy to hoItems
End_Procedure
366
How do I make the control read-only
Procedure OnCreate
	Forward Send OnCreate
	Set ComReadOnly to OLEexReadOnly
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Editor" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckListType
				Send ComAddItem of hoEditor 1 "One" Nothing
				Send ComAddItem of hoEditor 2 "Two" Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
	Send Destroy to hoItems
End_Procedure
365
How do I change the control's border, using your EBN files
Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
End_Procedure
364
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
363
Can I change the background color for the tooltip
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
362
Does the tooltip support HTML format
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
361
Can I change the forecolor for the tooltip
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
360
Can I change the foreground color for the tooltip
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
359
How can I merge cells
Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexAllLines
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "this cell merges the first two columns" to h
		Set ComCellMerge of hoItems h 0 to 1
		Get ComAddItem of hoItems Nothing to h
		Set ComCellValue of hoItems h 1 to "this cell merges the last two columns"
		Set ComCellMerge of hoItems h 1 to 2
		Get ComAddItem of hoItems "this cell merges the all three columns" to h
		Set ComCellMerge of hoItems h 0 to 1
		Set ComCellMerge of hoItems h 0 to 2
		Get ComAddItem of hoItems "this draws a divider item" to h
		Set ComItemDivider of hoItems h to 0
	Send Destroy to hoItems
End_Procedure
358
How can I merge cells
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems "This is bit of text merges all cells in the item (divider)" to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLine of hoItems h to OLEEmptyLine
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Get ComAddItem of hoItems "Cell 2" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines. (cellmerge)"
		Set ComCellMerge of hoItems h 1 to 2
		Set ComCellSingleLine of hoItems h 1 to False
	Send Destroy to hoItems
End_Procedure
357
How can I specify the width for a splited cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Single Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Split 1" to h
		Variant s
		Get ComSplitCell of hoItems h 0 to s
		Set ComCellWidth of hoItems  s to 64
		Set ComCellValue of hoItems  s to "Split 2"
		Variant s1
		Get ComSplitCell of hoItems  s to s1
		Set ComCellValue of hoItems  s1 to "Split 3"
		Set ComCellWidth of hoItems  s1 to 64
	Send Destroy to hoItems
End_Procedure
356
How can I split a cell in three parts
Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Single Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Split 1" to h
		Variant s
		Get ComSplitCell of hoItems h 0 to s
		Set ComCellValue of hoItems  s to "Split 2"
		Variant s1
		Get ComSplitCell of hoItems  s to s1
		Set ComCellValue of hoItems  s1 to "Split 3"
	Send Destroy to hoItems
End_Procedure
355
How can I add a button aligned to right
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Single Column" to Nothing
	Send Destroy to hoColumns
	Set ComShowFocusRect to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemDivider of hoItems (ComAddItem(hoItems,"This is a bit of text being displayed on the entire item")) to 0
		Variant s
		Get ComSplitCell of hoItems (ComAddItem(hoItems,"Split Cell 1.1")) 0 to s
		Set ComCellValue of hoItems  s to "Split Cell <img>1</img>"
		Set ComCellValueFormat of hoItems  s to OLEexHTML
		Set ComCellHAlignment of hoItems  s to OLECenterAlignment
		Set ComCellHasButton of hoItems  s to True
		Set ComCellWidth of hoItems  s to 84
	Send Destroy to hoItems
End_Procedure
354
How can I split a cell

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexRowLines
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Single Column" to Nothing
	Send Destroy to hoColumns
	Set ComShowFocusRect to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant s
		Get ComSplitCell of hoItems (ComAddItem(hoItems,"Split Cell 1.1")) 0 to s
		Set ComCellValue of hoItems  s to "Split Cell <img>1</img>"
		Set ComCellValueFormat of hoItems  s to OLEexHTML
		Set ComCellHAlignment of hoItems  s to OLECenterAlignment
		Set ComCellBackColor of hoItems  s to |CI$1000000
		Set ComCellWidth of hoItems  s to 84
	Send Destroy to hoItems
End_Procedure
353
Can I select an item giving its general position
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectPos of hoItems to 1
	Send Destroy to hoItems
End_Procedure
352
How can I change the color for separator / dividers items
Procedure OnCreate
	Forward Send OnCreate
	Set ComGridLineColor to (RGB(255,0,0))
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Set ComScrollBySingleLine to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems Nothing to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
		Set ComItemHeight of hoItems h to 6
		Set ComSelectableItem of hoItems h to False
		Get ComAddItem of hoItems "Cell 2" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
	Send Destroy to hoItems
End_Procedure
351
How can I add separator - dividers items
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Set ComScrollBySingleLine to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems Nothing to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
		Set ComItemHeight of hoItems h to 6
		Set ComSelectableItem of hoItems h to False
		Get ComAddItem of hoItems "Cell 2" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
	Send Destroy to hoItems
End_Procedure
350
Can I change the style of the line being displayed by a divider item

Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Set ComScrollBySingleLine to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemHeight of hoItems h to 24
	Send Destroy to hoItems
End_Procedure
349
Can I remove the line being displayed by a divider item
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLine of hoItems h to OLEEmptyLine
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
	Send Destroy to hoItems
End_Procedure
348
How can I display a divider item, merging all cells
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComTreeColumnIndex to -1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
		Set ComItemDivider of hoItems h to 0
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
	Send Destroy to hoItems
End_Procedure
347
How can I fix or lock items
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexTop to 1
		Set ComCellValue of hoItems (ComLockedItem(hoItems,OLEexTop,0)) 0 to "This is a locked item, fixed to the top side of the control."
		Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexTop,0)) to (RGB(196,196,186))
		Set ComLockedItemCount of hoItems OLEexBottom to 2
		Set ComCellValue of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) 0 to "This is a locked item, fixed to the top side of the control."
		Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) to (RGB(196,196,186))
		Set ComCellValue of hoItems (ComLockedItem(hoItems,OLEexBottom,1)) 0 to "This is a locked item, fixed to the top side of the control."
		Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexBottom,1)) to (RGB(186,186,186))
	Send Destroy to hoItems
End_Procedure
346
How can I fix or lock an item on the bottom side of the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexBottom to 1
		Set ComCellValue of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) 0 to "This is a locked item, fixed to the bottom side of the control."
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
345
How can I fix or lock an item on the top of the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLockedItemCount of hoItems OLEexTop to 1
		Set ComCellValue of hoItems (ComLockedItem(hoItems,OLEexTop,0)) 0 to "This is a locked item, fixed to the top side of the control."
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
344
Is there any function to limit the height of the items when I display it using multiple lines

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		Set ComCellSingleLine of hoItems h 1 to False
		Set ComItemMaxHeight of hoItems h to 48
	Send Destroy to hoItems
End_Procedure
343
Why I cannot center my cells in the column
Procedure OnCreate
	Forward Send OnCreate
	Set ComTreeColumnIndex to -1
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAlignment of hoColumn to OLECenterAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "item 1" to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "item 2" to Nothing
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComAddItem of hoItems2 "item 3" to Nothing
	Send Destroy to hoItems2
End_Procedure
342
How can I align the cell to the left, center or to the right
Procedure OnCreate
	Forward Send OnCreate
	Set ComTreeColumnIndex to -1
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"left")) 0 to OLELeftAlignment
		Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"center")) 0 to OLECenterAlignment
		Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"right")) 0 to OLERightAlignment
	Send Destroy to hoItems
End_Procedure
341
How do I apply HTML format to a cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComTreeColumnIndex to -1
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "The following item shows some of the HTML format supported:" to h
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Get ComAddItem of hoItems "text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<dotline>and so on... <a>anchor</a> or <a2>hyperlink</a><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor> " to h
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Set ComCellSingleLine of hoItems h 0 to False
	Send Destroy to hoItems
End_Procedure
340
How can I change the font for a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "std font" to Nothing
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValueFormat of hoItems1 (ComAddItem(hoItems1,"this <font tahoma;12>is a bit of text with</font> a different font")) 0 to OLEexHTML
	Send Destroy to hoItems1
End_Procedure
339
How can I change the font for a cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComDefaultItemHeight to 22
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "default font" to Nothing
	Send Destroy to hoItems
	Variant f
	Get Comcreateobject "StdFont" to f
		Set ComName to "Tahoma"
		Set ComSize to 12
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellFont of hoItems1 (ComAddItem(hoItems1,"new font")) 0 to f
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Variant v
			Get ComExecuteTemplate "Dim f;f = CreateObject(`StdFont`);{;Name = `Tahoma`;Size = 14;};" to v
		Set ComCellFont of hoItems2 (ComAddItem(hoItems2,"new font")) 0 to v
	Send Destroy to hoItems2
End_Procedure
338
How can I change the font for entire item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "default font" to Nothing
	Send Destroy to hoItems
	Variant f
	Get Comcreateobject "StdFont" to f
		Set ComName to "Tahoma"
		Set ComSize to 12
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemFont of hoItems1 (ComAddItem(hoItems1,"new font")) to f
	Send Destroy to hoItems1
End_Procedure
337
How do I vertically align a cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "MultipleLine" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellSingleLine to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "VAlign" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
		Set ComCellValue of hoItems h 1 to "top"
		Set ComCellVAlignment of hoItems h 1 to OLEexTop
		Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
		Set ComCellValue of hoItems h 1 to "middle"
		Set ComCellVAlignment of hoItems h 1 to OLEexMiddle
		Get ComAddItem of hoItems "This is a bit of long text that should break the line" to h
		Set ComCellValue of hoItems h 1 to "bottom"
		Set ComCellVAlignment of hoItems h 1 to OLEexBottom
	Send Destroy to hoItems
End_Procedure
336
How can I change the position of an item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Set ComItemPosition of hoItems (ComAddItem(hoItems,"Item 3")) to 0
	Send Destroy to hoItems
End_Procedure
335
How do I find an item based on a path
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Set ComItemData of hoItems (ComInsertItem(hoItems,h,"Child 2")) to 1234
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComFindPath(hoItems,"Root 1\Child 1")) to True
	Send Destroy to hoItems
End_Procedure
334
How do I find an item based on my extra data
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Set ComItemData of hoItems (ComInsertItem(hoItems,h,"Child 2")) to 1234
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComFindItemData(hoItems,1234,Nothing)) to True
	Send Destroy to hoItems
End_Procedure
333
How do I find an item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComFindItem(hoItems,"Child 2",0,Nothing)) to True
	Send Destroy to hoItems
End_Procedure
332
How can I insert a hyperlink or an anchor element
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValueFormat of hoItems (ComAddItem(hoItems,"Just an <a1>anchor</a> element ...")) 0 to OLEexHTML
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValueFormat of hoItems1 (ComAddItem(hoItems1,"Just another <a2>anchor</a> element ...")) 0 to OLEexHTML
	Send Destroy to hoItems1
End_Procedure
331
How do I find the index of the item based on its handle
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComItemByIndex(hoItems,(ComItemToIndex(hoItems,h)))) to True
	Send Destroy to hoItems
End_Procedure
330
How do I find the handle of the item based on its index
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComItemByIndex(hoItems,1)) to True
	Send Destroy to hoItems
End_Procedure
329
How can I find the cell being clicked in a radio group
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComSelBackColor to (RGB(255,255,128))
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Radio 1"
		Set ComCellHasRadioButton of hoItems h 1 to True
		Set ComCellRadioGroup of hoItems h 1 to 1234
		Set ComCellValue of hoItems h 2 to "Radio 2"
		Set ComCellHasRadioButton of hoItems h 2 to True
		Set ComCellRadioGroup of hoItems h 2 to 1234
		Set ComCellState of hoItems h 1 to 1
		Set ComCellBold of hoItems  (ComCellChecked(hoItems,1234)) to True
	Send Destroy to hoItems
End_Procedure
328
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemHasChildren of hoItems (ComAddItem(hoItems,"parent item with no child items")) to True
		Get ComAddItem of hoItems "next item" to Nothing
	Send Destroy to hoItems
End_Procedure
327
Can I let the user to resize at runtime the specified item
Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollBySingleLine to True
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemAllowSizing of hoItems (ComAddItem(hoItems,"resizable item")) to True
		Get ComAddItem of hoItems "not resizable item" to Nothing
	Send Destroy to hoItems
End_Procedure
326
How can I change the size ( width, height ) of the picture

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
		Set ComCellPicture of hoItems h 0 to (vPicture)
		Set ComCellPictureWidth of hoItems h 0 to 24
		Set ComCellPictureHeight of hoItems h 0 to 24
		Set ComItemHeight of hoItems h to 32
		Get ComAddItem of hoItems "Root 2" to h
		Variant vPicture1
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture1
		Set ComCellPicture of hoItems h 0 to (vPicture1)
		Set ComItemHeight of hoItems h to 48
	Send Destroy to hoItems
End_Procedure
325
How can I find the number or the count of selected items
Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectItem of hoItems (ComItemChild(hoItems,h)) to True
		Set ComSelectItem of hoItems (ComNextSiblingItem(hoItems,(ComItemChild(hoItems,h)))) to True
		Get ComAddItem of hoItems (ComSelectCount(hoItems)) to Nothing
	Send Destroy to hoItems
End_Procedure
324
How do I unselect an item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectItem of hoItems h to False
	Send Destroy to hoItems
End_Procedure
323
How do I find the selected item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectItem of hoItems h to True
		Set ComItemBold of hoItems (ComSelectedItem(hoItems,0)) to True
	Send Destroy to hoItems
End_Procedure
322
How do I un select all items
Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Send ComUnselectAll of hoItems
	Send Destroy to hoItems
End_Procedure
321
How do I select multiple items
Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectItem of hoItems (ComItemChild(hoItems,h)) to True
		Set ComSelectItem of hoItems (ComNextSiblingItem(hoItems,(ComItemChild(hoItems,h)))) to True
	Send Destroy to hoItems
End_Procedure
320
How do I select all items
Procedure OnCreate
	Forward Send OnCreate
	Set ComSingleSel to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Send ComSelectAll of hoItems
	Send Destroy to hoItems
End_Procedure
319
How do I select an item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComSelectItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
318
Can I display a button with some picture or icon inside

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "p1" to "gBHJJGHA5MIwAEIe4AAAFhwbiEQEsTigwEowjEZGA7jkdIsfkBQkUjLZQLclLZlk8rlRlOBlmEwl5wmhwPc3nCFPaFSCFnk8nqQTaQolEoabpCbUtKUtNWFPp67qVTXbFq1VqzQjjQKA7aFfaDbsRFHbbKBFsVpcrljjlsjlrtwIrlkrlPZwtbbtbleEieEleEqeE3eCFMuFODwsTwtbwxz7qz7tb7x+UfeXAOZzWbzmdz2f0Gh0Wj0ml02n1Gp1Wr1mt12v2Gx2Wz2m122318MAAhfIEAMMf4AFm6hPFIAI4L/BIcJCwUDBQYICYeKjwMSEYYRDaMJCcJCxURFRQYExMMDAOJAIQEBofMS4JCyUiRBQKCggLAJEChQIXEAxEEWBADAIxHAwHgyBATBEAEQoIg4EoXC4DB4nmQQDESAYRAwLBdFoEphAAEweCQeoQDCIRCFWLBXh8bB1FAVZBgMMBhkULodFAVgpkK4JUC6ZZbFabZbjYaIXCYJI7lKbpdjwTJ1EqHYIHI7IjhKewOCYXAYHCCoJhaaAmgyYBygWCJICKMAoRqI5Hg8FQMEoEhlDyURBAQO4Gk4GocAAcxDgeEAUFQLwWlCVRqlYCJbB8eBtAqdgBl6UQJgEaBgE2G5AhAYBBgGT4EA4Y5FguFYrFADAIkAIBBAKMBliUD5mluXR6nWbBZhGKgAEGYo4goDgcDYf4MG+XZeEMBh0BiVAvmeDwhkOe4OhcPAiHQe4wjASZ8BKLxwGQQB4mOSAHDKSBvkARQWmsDAhBeIoTGyAgEGgGoAgICo0HoEABggIETkKDApCQAIvGoCJKDABAQkRVIGhkUgQCGBYdiaegBAUEpeDAIgEiCOooAEBwJBCUBKC8DoHCoTQmBmBoQEGBwZHYEBhgAAYpAIYBGiYcoUAgKgpjyUAtDWKpglMCori8RICksAZcBSfIngAEpGFuIIDg4CIQFMOgyEsFJgEyAYSEgQAsDKNRMgsAAKCw54ACCcAwBOCBhAqO5ODkFhLAgISGh4W5zDoNw1DOdBQkQExVHQURGHkWpsDEPAig0DQ3EoDQYG+OwXkoeBoAMFwLCSaQFgwBA6kCIxLg0YhoC+e54jSbBVB6SoYAiAx+Dqf56A+VRPE0Mggj+OgOjwKA+gCawtCkQJcmcFQJCeVgLEWTAiGAVxSFWIJ6kSGBhCQXwvFocIui0EwMAyAwDGocABAabYNHAFYBmmbQqnaGMSIXRQAAAaD8UgSxBhmFqCIcAwAlBJB0AYETDRoBEAGBEfAzhICiFODYMwmRoCOBkNEUgw3AgMFCIMW4tQPDpBe4IUYVl8jwAMCAOIABHiuAoGsVgKQQjZGoL8FYnBzDBAOKwII+QtBWFkM0KwZQsC3HCJgCAkwpiJBYGUNgVBPBsBKJYJgDRQAlEuFINo4BgjLBgJsLgmxKhAFuLkGQCQNjwFsME3Y5AMhEAiBQCoZwOByA6AQUAZgsBCB+AUVwUQ5jWAyAQTwwAYgdG4NMPkkQuCgGeDUKAtXEBhBAIATodgXAHDEAgEY4A4ADDkK0YQGABAADEB4OAwABA2FWA8UoHQuCAGGNUdA4BCAXDcLgIRmQAA7ICA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to " Button <img>p1</img> "
		Set ComCellValueFormat of hoItems h 1 to OLEexHTML
		Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
		Set ComCellHasButton of hoItems h 1 to True
		Set ComCellButtonAutoWidth of hoItems h 1 to True
		Set ComItemHeight of hoItems h to 48
	Send Destroy to hoItems
End_Procedure
317
Can I display a button with some picture or icon inside
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to " Button <img>1</img> "
		Set ComCellValueFormat of hoItems h 1 to OLEexHTML
		Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
		Set ComCellHasButton of hoItems h 1 to True
		Set ComCellButtonAutoWidth of hoItems h 1 to True
	Send Destroy to hoItems
End_Procedure
316
Can I display a button with some icon inside
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to " <img>1</img> "
		Set ComCellValueFormat of hoItems h 1 to OLEexHTML
		Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
		Set ComCellHasButton of hoItems h 1 to True
		Set ComCellButtonAutoWidth of hoItems h 1 to True
	Send Destroy to hoItems
End_Procedure
315
How can I assign multiple icon/picture to a cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "text <img>p1</img> another picture <img>p2</img> and so on" to h
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\colorize.gif`)" to vPicture
		Set ComCellPicture of hoItems h 0 to (vPicture)
		Set ComItemHeight of hoItems h to 48
		Get ComAddItem of hoItems "Root 2" to Nothing
	Send Destroy to hoItems
End_Procedure
314
How can I assign an icon/picture to a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
		Set ComCellPicture of hoItems h 0 to (vPicture)
		Set ComItemHeight of hoItems h to 48
		Get ComAddItem of hoItems "Root 2" to Nothing
	Send Destroy to hoItems
End_Procedure
313
How can I assign multiple icons/pictures to a cell
Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root <img>1</img> 1, <img>2</img>, ... and so on " to h
		Set ComCellValueFormat of hoItems h 0 to OLEexHTML
	Send Destroy to hoItems
End_Procedure
312
How can I assign multiple icons/pictures to a cell

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Set ComCellImages of hoItems h 0 to "1,2,3"
	Send Destroy to hoItems
End_Procedure
311
How can I assign an icon/picture to a cell

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Set ComCellImage of hoItems h 0 to 1
		Set ComCellImage of hoItems (ComInsertItem(hoItems,h,"Child 1")) 0 to 2
		Set ComCellImage of hoItems (ComInsertItem(hoItems,h,"Child 2")) 0 to 3
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure
310
How can I get the handle of an item based on the handle of the cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems (ComCellItem(hoItems,(ComItemCell(hoItems,h,0)))) to True
	Send Destroy to hoItems
End_Procedure
309
How can I display a button inside the item or cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to " Button 1 "
		Set ComCellHAlignment of hoItems h 1 to OLERightAlignment
		Set ComCellHasButton of hoItems h 1 to True
		Set ComCellButtonAutoWidth of hoItems h 1 to True
		Get ComAddItem of hoItems "Cell 2" to h
		Set ComCellValue of hoItems h 1 to " Button 2 "
		Set ComCellHAlignment of hoItems h 1 to OLECenterAlignment
		Set ComCellHasButton of hoItems h 1 to True
	Send Destroy to hoItems
End_Procedure
308
How can I change the state of a radio button
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComSelBackColor to (RGB(255,255,128))
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Radio 1"
		Set ComCellHasRadioButton of hoItems h 1 to True
		Set ComCellRadioGroup of hoItems h 1 to 1234
		Set ComCellValue of hoItems h 2 to "Radio 2"
		Set ComCellHasRadioButton of hoItems h 2 to True
		Set ComCellRadioGroup of hoItems h 2 to 1234
		Set ComCellState of hoItems h 1 to 1
	Send Destroy to hoItems
End_Procedure
307
How can I assign a radio button to a cell
Procedure OnCreate
	Forward Send OnCreate
	Set ComMarkSearchColumn to False
	Set ComSelBackColor to (RGB(255,255,128))
	Set ComSelForeColor to (RGB(0,0,0))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "C3" to Nothing
	Send Destroy to hoColumns2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Radio 1"
		Set ComCellHasRadioButton of hoItems h 1 to True
		Set ComCellRadioGroup of hoItems h 1 to 1234
		Set ComCellValue of hoItems h 2 to "Radio 2"
		Set ComCellHasRadioButton of hoItems h 2 to True
		Set ComCellRadioGroup of hoItems h 2 to 1234
		Set ComCellState of hoItems h 1 to 1
	Send Destroy to hoItems
End_Procedure
306
How can I change the state of a checkbox
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Check Box"
		Set ComCellHasCheckBox of hoItems h 1 to True
		Set ComCellState of hoItems h 1 to 1
	Send Destroy to hoItems
End_Procedure
305
How can I assign a checkbox to a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Check Box"
		Set ComCellHasCheckBox of hoItems h 1 to True
	Send Destroy to hoItems
End_Procedure
304
How can I display an item or a cell on multiple lines
Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "This is bit of text that's shown on multiple lines"
		Set ComCellSingleLine of hoItems h 1 to False
	Send Destroy to hoItems
End_Procedure
303
How can I assign a tooltip to a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "tooltip"
		Set ComCellToolTip of hoItems h 1 to "This is bit of text that's shown when the user hovers the cell"
	Send Destroy to hoItems
End_Procedure
302
How can I associate an extra data to a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Cell 2"
		Set ComCellData of hoItems h 1 to "your extra data"
	Send Destroy to hoItems
End_Procedure
301
How do I enable or disable a cell
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellValue of hoItems h 1 to "Cell 2"
		Set ComCellEnabled of hoItems h 1 to False
	Send Destroy to hoItems
End_Procedure